home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 22
/
Cream of the Crop 22.iso
/
games
/
zmud32.zip
/
ZMUD.EXE
/
0
/
RCDATA
/
TPARENTFORM
/
TPARENTFORM.txt
< prev
Wrap
Text File
|
1996-08-04
|
22KB
|
737 lines
object ParentForm: TParentForm
Left = 107
Top = 149
Width = 640
Height = 418
Caption = 'zMUD'
Color = clGray
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'System'
Font.Style = []
FormStyle = fsMDIForm
KeyPreview = True
Menu = MainMenu1
Position = poDefault
ShowHint = True
WindowMenu = Window2
OnActivate = FormActivate
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 16
object BackImage: TImage
Left = 232
Top = 56
Width = 96
Height = 96
AutoSize = True
Picture.Data = {<image000.bmp>}
Visible = False
end
object PauseImage: TImage
Left = 344
Top = 136
Width = 12
Height = 12
AutoSize = True
Picture.Data = {<image001.bmp>}
Visible = False
end
object Logo: TImage
Left = 344
Top = 56
Width = 32
Height = 32
AutoSize = True
Picture.Data = {<image002.bmp>}
Visible = False
end
object Panel1: TPanel
Left = 0
Top = 350
Width = 632
Height = 22
Align = alBottom
BevelOuter = bvNone
TabOrder = 0
object CurWindow: TPanel
Left = 17
Top = 0
Width = 88
Height = 22
Hint = 'Current Window|'
Align = alLeft
Alignment = taLeftJustify
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
PopupMenu = NamePopup
TabOrder = 0
OnMouseDown = CurWindowMouseDown
object Image2: TImage
Left = 72
Top = 7
Width = 8
Height = 8
Hint = 'Click to select window|'
AutoSize = True
Picture.Data = {<image003.bmp>}
OnMouseDown = CurWindowMouseDown
end
end
object HistPanel: TPanel
Left = 0
Top = 0
Width = 17
Height = 22
Hint = 'Command History|'
Align = alLeft
TabOrder = 1
OnClick = Image1Click
object Image1: TImage
Left = 4
Top = 7
Width = 8
Height = 8
Hint = 'Click to display history|'
AutoSize = True
Picture.Data = {<image004.bmp>}
OnClick = Image1Click
end
end
object UserIn: TMyEdit
Left = 105
Top = 0
Width = 527
Height = 22
Ctl3D = True
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Courier'
Font.Style = []
ParentCtl3D = False
ParentFont = False
TabOrder = 2
History = True
Align = alClient
end
end
object Ansi1: TAnsi
Left = 48
Top = 104
Width = 0
Height = 0
MaxSize = 0
StatusBar = False
TabOrder = 1
end
object Panel3: TPanel
Left = 0
Top = 348
Width = 632
Height = 2
Align = alBottom
TabOrder = 2
end
object MediaPlayer: TMediaPlayer
Left = 176
Top = 216
Width = 253
Height = 30
Visible = False
TabOrder = 3
end
object SpeedBar: TPanel
Left = 0
Top = 0
Width = 632
Height = 22
Align = alTop
BevelOuter = bvLowered
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 4
object SpeedButton1: TSpeedButton
Left = 1
Top = 1
Width = 78
Height = 20
Caption = 'Aliases'
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333333333333333333333333333333333
333333333333333333333333333333333333333333333333333333CCC3CCC333
CCC333333333333333333C33C3C33C3C3333333333333333333333CCC3C33C3C
333333333333333333333333C3C33C3C3333333333333333333333CC33CCC333
CCC33333333333333333333333C3333333333333333333333333333333C33333
33333333333333333333333333C3333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333}
NumGlyphs = 2
OnClick = SpeedButton1Click
end
object SpeedButton2: TSpeedButton
Left = 79
Top = 1
Width = 78
Height = 20
Caption = 'Variables'
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333333333333333333333333333333333
333333333333333333333333333333333333333333333333333333CCCCC3C333
33C333333333333333333C333333C33333C333333333333333333C333C33C333
33C333333333333333333C3CC3C33CCCCC3333333333333333333C3CC3C33C33
3C3333333333333333333C3333C33C333C33333333333333333333CCCC3333C3
C33333333333333333333333333333C3C33333333333333333333333333333C3
C333333333333333333333333333333C33333333333333333333333333333333
3333333333333333333333333333333333333333333333333333}
NumGlyphs = 2
OnClick = SpeedButton2Click
end
object SpeedButton3: TSpeedButton
Left = 157
Top = 1
Width = 78
Height = 20
Caption = 'Paths'
Glyph.Data = {
90010000424D9001000000000000760000002800000020000000100000000100
0400000000000001000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333003333303333333333333333333333333633333603
3333333333333333333333363333633333333333333333333333333366363333
0003333333333333333333333EC6333333333333333333333333333C366C3333
3333333333333333333333E3C6C6333000333333333333333333333336663333
33333333333333333333333333E333000333333333333333333333333EE03333
3333333333333333333333333E00333333333333333333333333333330003333
3333333333333333333333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333000000000000
0000000000000000000000000000000000000000}
NumGlyphs = 2
OnClick = SpeedButton3Click
end
object SpeedButton4: TSpeedButton
Left = 235
Top = 1
Width = 78
Height = 20
Caption = 'Triggers'
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333300000033333333333333333333333333307703333
3333333333333333333333330770333333333333333333333333333307703333
3333333333333333333333000770003333333333333333333333330707707033
3333333333333333333333070770703333333333333333333333330777777033
3333333333333333333333077777703333333333333333333333333000000333
3333333333333333333333330EE033333333333333333333333333330EE03333
3333333333333333333333333003333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333}
NumGlyphs = 2
OnClick = SpeedButton4Click
end
object SpeedButton5: TSpeedButton
Left = 313
Top = 1
Width = 78
Height = 20
Caption = 'Keys'
Glyph.Data = {
10010000424D1001000000000000760000002800000010000000100000000100
0400000000008000000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333333300000000000033300888888888800330F888888888
880330FF88888888880330FF77777777780330FF70770777780330FF70770777
780330FF70000777780330FF70770777780330FF770077777803300F77777777
7003330000000000003333333333333333333333333333333333000000000000
0000000000000000000000000000000000000000}
OnClick = SpeedButton5Click
end
object SpeedButton6: TSpeedButton
Left = 391
Top = 1
Width = 78
Height = 20
Caption = 'General'
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333333333333333333333333333333333
33333333333333333333333000000003333333333333333333333330FFFFFF03
333333333333333333333330FF99FF03333333333333333333333330F9999F03
33333333333333333333333099FF9903333333333333333333333330FFFFF993
333333333333333333333330FFFFFF9933333333333333333333333000000009
9333333333333333333333333333333393333333333333333333333333333333
3333333333333333333333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333}
NumGlyphs = 2
OnClick = SpeedButton6Click
end
object SpeedButton7: TSpeedButton
Left = 469
Top = 1
Width = 78
Height = 20
Caption = 'Colors'
Glyph.Data = {
90010000424D9001000000000000760000002800000020000000100000000100
0400000000000001000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333000000000000033300000000000003330DDD06660F
FF033308880888088803330DDD06660FFF033308880888088803330DDD06660F
FF03330888088808880333000000000000033300000000000003330BBB08880E
EE033308880888088803330BBB08880EEE033308880888088803330BBB08880E
EE033308880888088803330000000000000333000000000000033309990AAA0C
CC0333088808880888033309990AAA0CCC0333088808880888033309990AAA0C
CC03330888088808880333000000000000033300000000000003333333333333
3333333333333333333333333333333333333333333333333333000000000000
0000000000000000000000000000000000000000}
NumGlyphs = 2
OnClick = SpeedButton7Click
end
object SpeedButton8: TSpeedButton
Left = 547
Top = 1
Width = 78
Height = 20
Caption = 'Fonts'
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333333333FFF33FFFFF33333300033000
00333337773377777333333330333300033333337FF33777F333333330733300
0333333377FFF777F33333333700000073333333777777773333333333033000
3333333337FF777F333333333307300033333333377F777F3333333333703007
33333333377F7773333333333330000333333333337777F33333333333300003
33333333337777F3333333333337007333333333337777333333333333330033
3333333333377333333333333333033333333333333733333333333333333333
3333333333333333333333333333333333333333333333333333}
NumGlyphs = 2
OnClick = SpeedButton8Click
end
end
object MainMenu1: TMainMenu
Left = 176
Top = 88
object File2: TMenuItem
Caption = '&File'
Hint = 'File menu'
ShortCut = 0
OnClick = File2Click
object ConnectionWizard1: TMenuItem
Caption = 'Connection &Wizard...'
GroupIndex = 105
Hint = 'Select a MUD to connect to from the master list'
ShortCut = 0
OnClick = ConnectionWizard1Click
end
object N8: TMenuItem
Caption = '-'
GroupIndex = 105
Hint = ' '
ShortCut = 0
end
object Connect1: TMenuItem
Caption = 'Another &Char...'
GroupIndex = 105
Hint = 'Open another character from the database in a new window'
ShortCut = 0
OnClick = Connect1Click
end
object Reconnect1: TMenuItem
Caption = '&Reconnect'
GroupIndex = 105
Hint = 'Reconnect to the current MUD character'
ShortCut = 0
OnClick = Reconnect1Click
end
object Disconnect1: TMenuItem
Caption = '&Disconnect'
GroupIndex = 105
Hint = 'Disconnect from the current MUD character'
ShortCut = 0
OnClick = Disconnect1Click
end
object N4: TMenuItem
Caption = '-'
GroupIndex = 105
Hint = ' '
ShortCut = 0
end
object NewLog1: TMenuItem
Caption = '&New Log...'
GroupIndex = 105
Hint = 'Open a new log file'
ShortCut = 0
OnClick = NewLog1Click
end
object AppendLog1: TMenuItem
Caption = '&Append Log...'
GroupIndex = 105
Hint = 'Append to an existing log file'
ShortCut = 0
OnClick = AppendLog1Click
end
object ToggleLog: TMenuItem
Caption = '&Log'
GroupIndex = 105
Hint = 'Toggle the logging to a file'
ShortCut = 0
OnClick = ToggleLogClick
end
object N6: TMenuItem
Caption = '-'
GroupIndex = 105
Hint = ' '
ShortCut = 0
end
object PrintSetup1: TMenuItem
Caption = 'Print &Setup...'
GroupIndex = 105
Hint = 'Select a printer'
ShortCut = 0
OnClick = PrintSetup1Click
end
object Print1: TMenuItem
Caption = '&Print'
GroupIndex = 105
Hint = 'Print'
ShortCut = 0
object Buffer1: TMenuItem
Caption = '&Buffer'
Hint = 'Print entire scrollback buffer'
ShortCut = 0
OnClick = Buffer1Click
end
object Selected1: TMenuItem
Caption = '&Selected'
Hint = 'Print selected portion of buffer'
ShortCut = 0
OnClick = Selected1Click
end
object Screen1: TMenuItem
Caption = 'Scree&n'
Hint = 'Print current screen'
ShortCut = 0
OnClick = Screen1Click
end
object N7: TMenuItem
Caption = '-'
Hint = ' '
ShortCut = 0
end
object Color1: TMenuItem
Caption = 'Color'
Hint = 'Toggle color vs black/white printing'
ShortCut = 0
OnClick = Color1Click
end
end
object PrintScreen1: TMenuItem
Caption = 'PrintScreen'
GroupIndex = 105
Hint = 'Print the screen'
ShortCut = 16464
Visible = False
OnClick = PrintScreen1Click
end
object N3: TMenuItem
Caption = '-'
GroupIndex = 105
Hint = ' '
ShortCut = 0
end
object Exit2: TMenuItem
Caption = 'E&xit'
GroupIndex = 105
Hint = 'Leave zMUD'
ShortCut = 0
OnClick = Exit1Click
end
end
object Window2: TMenuItem
Caption = '&Window'
GroupIndex = 9
Hint = 'Window menu'
ShortCut = 0
OnClick = Window2Click
object Tile2: TMenuItem
Caption = '&Tile'
GroupIndex = 61
Hint = 'Tile all windows'
ShortCut = 0
OnClick = Tile1Click
end
object Cascade2: TMenuItem
Caption = '&Cascade'
GroupIndex = 62
Hint = 'Cascade all windows'
ShortCut = 0
OnClick = Cascade1Click
end
object Arrange2: TMenuItem
Caption = '&Arrange'
GroupIndex = 63
Hint = 'Arrange minimized window icons'
ShortCut = 0
OnClick = Arrange1Click
end
object Next1: TMenuItem
Caption = 'Next'
GroupIndex = 64
Hint = 'Select next window'
ShortCut = 16462
Visible = False
OnClick = Next1Click
end
object Prev1: TMenuItem
Caption = 'Prev'
GroupIndex = 65
Hint = 'Select previous window'
ShortCut = 0
Visible = False
OnClick = Prev1Click
end
object N5: TMenuItem
Caption = '-'
GroupIndex = 66
Hint = ' '
ShortCut = 0
end
object Freeze1: TMenuItem
Caption = 'Free&ze'
GroupIndex = 67
Hint = 'Freeze or un-freeze the window scrolling'
ShortCut = 16474
OnClick = Freeze1Click
end
object Refresh1: TMenuItem
Caption = '&Refresh'
GroupIndex = 68
Hint = 'Refresh the current window display'
ShortCut = 0
OnClick = Refresh1Click
end
object Clear1: TMenuItem
Caption = 'C&lear'
GroupIndex = 68
Hint = 'Clear the screen by scrolling'
ShortCut = 16460
OnClick = Clear1Click
end
object Empty1: TMenuItem
Caption = 'Empty'
GroupIndex = 68
Hint = 'Clear the current window and its scrollback buffer'
ShortCut = 0
OnClick = Empty1Click
end
object N2: TMenuItem
Caption = '-'
GroupIndex = 70
Hint = ' '
ShortCut = 0
end
object History1: TMenuItem
Caption = '&History'
GroupIndex = 71
Hint = 'Display the command history window'
ShortCut = 0
OnClick = History1Click
end
object CommandBuffer2: TMenuItem
Caption = 'Command &Buffer'
GroupIndex = 72
Hint = 'Display the multi-line command buffer editor'
ShortCut = 0
OnClick = CommandBuffer2Click
end
object Status1: TMenuItem
Caption = '&Status'
GroupIndex = 72
Hint = 'Display the status window'
ShortCut = 0
OnClick = Status1Click
end
object AutoMapper1: TMenuItem
Caption = 'Auto&Mapper'
GroupIndex = 72
ShortCut = 0
OnClick = AutoMapper1Click
end
end
object Help1: TMenuItem
Caption = '&Help'
GroupIndex = 10
Hint = 'Help menu'
ShortCut = 0
object Contents1: TMenuItem
Caption = 'Con&tents'
GroupIndex = 101
Hint = 'Display the contents of the help file'
ShortCut = 0
OnClick = Contents1Click
end
object Search1: TMenuItem
Caption = '&Search'
GroupIndex = 102
Hint = 'Search the online help file'
ShortCut = 0
OnClick = Search1Click
end
object Reference1: TMenuItem
Caption = '&Reference'
GroupIndex = 103
Hint = 'Display the command reference page of the help file'
ShortCut = 0
OnClick = Reference1Click
end
object GettingStarted1: TMenuItem
Caption = '&Getting Started'
GroupIndex = 104
Hint = 'Display the Getting Started section of the help file'
ShortCut = 0
OnClick = GettingStarted1Click
end
object N13: TMenuItem
Caption = '-'
GroupIndex = 106
Hint = ' '
ShortCut = 0
end
object CommandWizard1: TMenuItem
Caption = '&Command Wizard'
GroupIndex = 106
Hint = 'Get help on a zmud command'
ShortCut = 0
OnClick = CommandWizard1Click
end
object FunctionWizard1: TMenuItem
Caption = '&Function Wizard'
GroupIndex = 106
Hint = 'Get help on a zMUD function'
ShortCut = 0
OnClick = FunctionWizard1Click
end
object N1: TMenuItem
Caption = '-'
GroupIndex = 109
Hint = ' '
ShortCut = 0
end
object ShowTip1: TMenuItem
Caption = '&Tip of the day'
GroupIndex = 109
Hint = 'Display a zMUD usage tip'
ShortCut = 0
OnClick = ShowTip1Click
end
object StartupScreen1: TMenuItem
Caption = 'Startup Screen...'
GroupIndex = 110
Hint = 'Display the initial startup screen'
ShortCut = 0
OnClick = StartupScreen1Click
end
object About1: TMenuItem
Caption = '&About...'
GroupIndex = 111
Hint = 'Display the About dialog containing copyright and credits'
ShortCut = 0
OnClick = About1Click
end
object N9: TMenuItem
Caption = '-'
GroupIndex = 111
Hint = ' '
ShortCut = 0
end
object SendFeedback1: TMenuItem
Caption = 'Send &Feedback'
GroupIndex = 111
Hint = 'Send a bug report or suggestion to Zugg'
ShortCut = 0
OnClick = SendFeedback1Click
end
end
end
object StartupTimer: TTimer
Enabled = False
OnTimer = StartupTimerTimer
Left = 176
Top = 56
end
object SaveLogDialog: TSaveDialog
DefaultExt = 'txt'
FileEditStyle = fsEdit
Filter = 'Text Files|*.txt|All Files|*.*'
Left = 176
Top = 120
end
object NamePopup: TPopupMenu
Left = 176
Top = 160
end
object zmud: TDdeServerConv
OnExecuteMacro = zmudExecuteMacro
Left = 296
Top = 168
end
object data: TDdeServerItem
ServerConv = zmud
OnPokeData = dataPokeData
Left = 336
Top = 168
end
object DdeClientConv1: TDdeClientConv
ConnectMode = ddeManual
Left = 384
Top = 168
end
object DdeClientItem1: TDdeClientItem
Left = 424
Top = 168
end
object MenuTimer: TTimer
Enabled = False
OnTimer = MenuTimerTimer
Left = 176
Top = 288
end
object PrintSetup: TPrinterSetupDialog
Left = 216
Top = 288
end
object PrinterDlg: TPrintDialog
MinPage = 1
MaxPage = 1
Options = [poPageNums, poSelection]
Left = 248
Top = 288
end
end